home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Greatest Hits / rerun-greatest-hits-vol-i.d64 / the instructions (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  3KB  |  78 lines
  1. 1 rem *********************************
  2. 2 rem *         'auto menu'           *
  3. 3 rem * reads directory & auto loads  *
  4. 4 rem * program selected by the user  *
  5. 5 rem *             by                *
  6. 6 rem * joe w. rocke          7/27/84 *
  7. 7 rem *********************************
  8. 10 poke53280,6:poke53281,6
  9. 20 dim n$(100):cx=54272:print "[147]"
  10. 30 print"[147]"
  11. 40 x$="                                       "
  12. 50 forx=1to5:printx$:next
  13. 60 print"":print chr$(117);
  14. 70 for x=1 to 38:printchr$(100);:next
  15. 80 printchr$(105);:for x=1 to 5
  16. 90 printchr$(103)spc(38)chr$(104)" "chr$(157);:next
  17. 100 printchr$(106);:for x=1 to 38:printchr$(102);:next:printchr$(107)
  18. 110 print""tab(10)"  instruction menu"
  19. 120 printtab(10)"loading the directory"
  20. 129 rem --- read disk directory ---
  21. 130 open1,8,0,"$"
  22. 140 get#1,b$:ifst<>0then260
  23. 149 rem --- line 150 limits to 26 files ---
  24. 150 iff>=27then260
  25. 160 ifb$<>chr$(34)then140
  26. 170 n$="":print"":poke 214,8:print
  27. 180 get#1,b$:ifb$<>chr$(34)thenn$=n$+b$:goto180
  28. 190 get#1,b$:ifb$=chr$(32)then190
  29. 199 rem -- following lines skip the loading files --
  30. 200 ifn$="stack"orn$="homerun derby"orn$="autorun"thenf=f-1:goto240
  31. 201 ifn$="pulsing pictures"orn$="songfest"orn$="autonumber"thenf=f-1:goto240
  32. 202 ifn$="label maker"orn$="arithme-sketch"orn$="disk keeper"thenf=f-1:goto240
  33. 203 ifn$="needlegraph"orn$="home inventory"orn$="murder by byte"thenf=f-1:goto240
  34. 204 ifn$="murder gamepad"orn$="menu 64"orn$="the instructions"thenf=f-1:goto240
  35. 205 ifn$="home inv. 64"orn$="home inv. 128"thenf=f-1:goto240
  36. 220 ifleft$(n$,1)=" "thenf=f-1:goto240
  37. 230 n$(f)=" "+n$
  38. 240 get#1,b$:ifb$<>""then240
  39. 250 ifst=0thenf=f+1:goto140
  40. 260 close1
  41. 269 rem - print first column of names -
  42. 270 fore=1tof/2:print"[144]"chr$(64+e)""n$(e):next
  43. 280 print"":poke214,8:print
  44. 289 rem -- then 2nd column of names ---
  45. 290 fore=f/2+1tof:printspc(20)"[144]"chr$(64+e)""n$(e):next
  46. 300 print"":poke53280,2:poke53281,2
  47. 304 fort=1to20
  48. 305 kk=54273:pokekk+23,21:pokekk+4,9:pokekk+5,0:pokekk,128:pokekk+3,2 :pokekk+3,33
  49. 306 next
  50. 310 printtab(10)"[144]   press letter key   "
  51. 320 printtab(5)"to load desired instructions"
  52. 325 print""tab(8)"[158]display instructions by":print
  53. 326 printtab(9)" pressing keys a - l
  54. 330 [161]m$:[139]m$[178]""[167] 330
  55. 335 [139]m$[178][199](13)[167][138]
  56. 350 [139]m$[179]"a"[176]m$[177][199](64[170]f)[167]330
  57. 360 p[178][198](m$)[171]64:[153]"load"
  58. 370 [139][195](n$(p))[177]15[167]n$(p)[178][200](n$(p),17)
  59. 380 n$(p)[178][202](n$(p),2,[195](n$(p)))
  60. 390 [153]"load"[199](34)n$(p)[199](34)",8ononon":[137]460
  61. 391 p[178][198](m$)[171]64:[153]"load"
  62. 392 [139][195](n$(p))[177]15[167]n$(p)[178][200](n$(p),16)[170]"*"
  63. 393 n$(p)[178][202](n$(p),2,[195](n$(p)))
  64. 394 [153]"load"[199](34)n$(p)[199](34)",8ononon"
  65. 400 [143] *******************************
  66. 410 [143] * if you know the pgm is 'ml' *
  67. 420 [143] * the example below will load *
  68. 430 [143] * and file & run it. examples *
  69. 440 [143] * (3) are shown below.        *
  70. 450 [143] *******************************
  71. 460 [139][200](n$(p),5)[178]"curso"[167]510
  72. 470 [139][200](n$(p),7)[178]"blank-i"[167]a$[178]"sys890"[170][199](13):[137]500
  73. 480 [139][200](n$(p),5)[178]"ultra"[167]a$[178]"sys49152"[170][199](13):[137]500
  74. 490 a$[178]"run"[170][199](13)
  75. 500 [151]631,13:[129]b[178]1[164][195](a$):[151]631[170]b,[198]([202](a$,b,1)):[130]:[151]198,10
  76. 505 [162]
  77. 510 a$[178]"run 25"[170][199](13):[137]500
  78.